home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / source / lib / library_lib.lha / Library / LibOpen.d < prev    next >
Text File  |  2001-11-14  |  296b  |  17 lines
  1. OPT    NOEXE
  2.  
  3. MODULE    'powerd/library'
  4.  
  5. EPROC customOpenLib(base:PTR TO LibGenBase)(LONG)
  6.  
  7. PROC libOpen(base:PTR TO LibGenBase IN a6)(PTR TO LibGenBase)
  8.     DEF rc=0:PTR TO LibGenBase
  9.  
  10.     IF customOpenLib(base)
  11.         rc:=base
  12.         base.library.Flags&=~LIBF_DELEXP
  13.         base.library.OpenCnt++
  14.     ENDIF
  15.     
  16. ENDPROC rc
  17.